home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Office / RagTime-4-Installation / Für RagTime-2-Umsteiger / RagTime 3 Spezial / RagTime 3 Spezial.rsrc / PREC_103 < prev    next >
Text File  |  1996-10-23  |  8KB  |  138 lines
  1. %RagTime Prolog Version 3.1
  2. 9999 dup statusdict/product get eq dup{exch pop false}{exch 9999 ne dup{(PPD file does not match printer) = flush}if
  3. 0{dup currentfile read{exch(3.04 pop 3.04 pop)exch get eq{1 add dup 17 ge{pop exit}if}{pop 0}ifelse}{pop pop exit}ifelse}loop}ifelse
  4. ^2
  5. 3.04 pop 3.04 pop
  6. {
  7. ^3
  8. }if
  9. /beDict 120 dict def beDict begin
  10. /ppdok exch def systemdict/setpacking known{currentpacking true setpacking}if
  11. /spaceMinFactor -.5 def
  12. /bdf{bind def}bind def
  13. /xdf{exch def}bdf
  14. /pop4{pop pop pop pop}bdf
  15. /T true def
  16. /F false def
  17. /a8s 8 array def
  18. /dv{dup 0 ne{div}{pop}ifelse}bdf
  19. /sgn{dup 0 ne{dup abs div}if}bdf
  20. /sgt{2 copy known{get true}{pop pop false}ifelse}bdf
  21. /setrgbcolor{dup 2 index eq dup{pop dup 3 index eq}if{pop pop setgray}{setrgbcolor}ifelse}bdf
  22. currentscreen/sFu xdf/sRot xdf/sFre xdf
  23. %SetDefaultScreen%
  24. /nlw .24 def
  25. /pys 1 def
  26. /s8 8 string def
  27. /dlw 0 def
  28. /sCTM matrix def
  29. /mtx matrix def
  30. /oldPolyX 0 def
  31. /oldPolyY 0 def
  32. /patAngle 0 def
  33. /fd{transform round exch round exch itransform}bdf
  34. /ltransform{0. dtransform dup mul exch dup mul add sqrt}bdf
  35. /iltransform{0. idtransform dup mul exch dup mul add sqrt}bdf
  36. /plw{dup 1.5 lt{pop 0.}{.4 sub iltransform}ifelse}bdf
  37. /rlw{dup 0. eq{pop 1}if iltransform}bdf
  38. /slw{ltransform round dup plw setlinewidth rlw/dlw xdf}bdf
  39. /roc{dlw 2. div dup/@0 xdf sub exch @0 sub fd @0 add exch @0 add}bdf
  40. /shc{dlw 2. div mul/@1 xdf roc @1 add exch @1 add exch}bdf
  41. /sfix{2 index shc 5 2 roll neg shc 4 2 roll}bdf
  42. /pfix{.2 .2 idtransform abs/@1 xdf abs/@0 xdf exch fd @1 sub exch @0 sub 4 2 roll exch fd @1 add exch @0 add 4 2 roll}bdf
  43. /ffix{-1. shc 4 2 roll 1. shc 4 2 roll}bdf
  44. /rp{4 copy 4 2 roll exch moveto 6 -1 roll lineto lineto lineto closepath}bdf
  45. /rrp{/@4 xdf/@5 xdf/@6 xdf/@7 xdf 2. div/@2 xdf
  46. @7 @5 eq @6 @4 eq @2 0 eq or or{@7 @6 @5 @4 @0 2. mul rp}
  47. {@4 @6 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelse
  48. @5 @7 sub 2. div dup @2 lt{/@2 xdf}{pop}ifelse
  49. @4 @6 add 2. div @7 moveto @4 @7 @4 @5 @2 arcto pop4 @4 @5 @6 @5 @2 arcto pop4 @6 @5 @6 @7 @2 arcto pop4 @6 @7 @4 @7 @2 arcto pop4
  50. closepath}ifelse}bdf
  51. /srp{sfix rp}bdf
  52. /frp{ffix rp}bdf
  53. /prp{pfix rp}bdf
  54. /srrp{sfix rrp}bdf
  55. /frrp{ffix 5 -1 roll dlw sub 5 1 roll rrp}bdf
  56. /prrp{pfix rrp}bdf
  57. /barc{/@1 xdf/@3 xdf/@4 xdf/@5 xdf/@6 xdf/@7 xdf/@8 xdf mtx currentmatrix pop
  58. @5 @7 add 2 div @6 @8 add 2 div translate newpath
  59. @5 @7 sub @6 @8 sub scale @1{0. 0. moveto}if
  60. 0. 0. 0.5 @4 @3 arc @1{0. 0. lineto}if
  61. mtx setmatrix}bdf
  62. /sarcp{sfix 7 -3 roll barc}bdf
  63. /farcp{ffix 6 -2 roll true barc}bdf
  64. /parcp{pfix 7 -3 roll barc}bdf
  65. /ovp{0. 360. false barc closepath}bdf
  66. /sovp{sfix ovp}bdf
  67. /fovp{ffix ovp}bdf
  68. /povp{pfix ovp}bdf
  69. /spsp{roc/oldPolyX xdf/oldPolyY xdf}bdf
  70. /spp{roc exch currentpoint exch oldPolyX 2 mul add 3 div exch oldPolyY 2 mul add 3 div
  71. 3 index oldPolyX 5 mul add 6 div 3 index oldPolyY 5 mul add 6 div
  72. 5 index oldPolyX add 2 div 5 index oldPolyY add 2 div
  73. curveto/oldPolyY xdf/oldPolyX xdf}bdf
  74. /lp{5 index 8 index sub/breite xdf 6 index 9 index sub/hoehe xdf
  75. breite dup mul hoehe dup mul add sqrt/len xdf
  76. /hoehe hoehe len dv def/breite breite len dv def
  77. dlw 2 div dup hoehe mul abs/hLWidth xdf breite mul abs/vLWidth xdf
  78. dlw mul dup breite mul neg exch hoehe mul fd 2 div/hLOffset xdf 2 div/vLOffset xdf
  79. ltransform round plw mul dup hoehe mul/vECap xdf breite mul/hECap xdf
  80. ltransform round plw mul dup hoehe mul/vSCap xdf breite mul/hSCap xdf
  81. hoehe .001 mul/vCorrect xdf breite .001 mul/hCorrect xdf hLWidth sub hLOffset add exch vLWidth sub vLOffset add fd vLWidth add vCorrect sub vECap add exch hLWidth add hCorrect sub hECap add exch
  82. 4 2 roll hLWidth sub hLOffset add exch vLWidth sub vLOffset add fd vLWidth add vCorrect add vSCap sub exch
  83. hLWidth add hCorrect add hSCap sub exch
  84. moveto lineto}bdf
  85. /bfil{{gsave setrgbcolor fill grestore}{pop pop pop}ifelse}bdf
  86. /setCTM{mtx astore sCTM mtx concatmatrix setmatrix}bdf
  87. /trnd{1 index abs dup 1 gt 2 index abs 1 gt or{dup floor sub .25 sub abs .25 sub}{-0.5 mul .5 add}ifelse 1 index 0 lt{neg}if 1 index add round}bdf
  88. /roundCTM{mtx currentmatrix mtx 4 0 put mtx 5 0 put mtx 0 get mtx 1 get trnd mtx exch 1 exch put exch trnd mtx exch 0 exch put pop pop mtx 2 get mtx 3 get trnd mtx exch 3 exch put exch trnd mtx exch 2 exch put pop pop setmatrix
  89. }bdf
  90. /pfill{s8 copy pop bfil{gsave setrgbcolor clip patAngle rotate roundCTM
  91. pathbbox /@3 xdf /@4 xdf /@1 xdf /@2 xdf
  92. @2 8. div floor dup @4 8. div ceiling exch sub cvi /@5 xdf 8 mul
  93. @1 8. div floor dup @3 8. div ceiling exch sub cvi /@6 xdf 8 mul translate
  94. 0 1 7{/@7 xdf a8s @5 string s8 @7 get 0 1 @5 1 sub{2 index exch 2 index put}for pop @7 exch put}for
  95. /@5 @5 8 mul def/@6 @6 8 mul def @5 @6 scale
  96. /@7 0 def @5 @6 true [@5 0. 0. @6 0. 0.]{a8s @7 get/@7 @7 dup 7 eq {pop 0}{1 add}ifelse def}imagemask grestore}{pop pop pop}ifelse newpath}bdf
  97. /validpath{false{pop pop pop true exit}{}{}{}pathforall}bdf
  98. /pstroke{currentflat{mark 1 index dup setflat 100 ge{2 setlinejoin}if{gsave
  99. strokepath validpath{10 index 10 index 10 index 10 index 10 index 10 index 10 index 10 index 10 index pfill}if
  100. }stopped{cleartomark grestoreall 2 mul dup 200 ge{(Path overflow in pattern fill.)= flush exit}if
  101. }{cleartomark grestoreall exit}ifelse}loop pop4 pop4 pop pop}bdf
  102. /lines{gsave rotate dup scale patAngle rotate roundCTM
  103. 1 0 dtransform sgn 4 div exch sgn 4 div exch idtransform translate
  104. setlinewidth /@0 xdf pathbbox newpath ceiling /@3 xdf @0 dv ceiling 1 add @0 mul /@4 xdf floor /@1 xdf @0 dv floor 1 sub @0 mul add @0 @4{dup @1 moveto @3 lineto stroke}for grestore}bdf
  105. /cells{gsave patAngle rotate roundCTM
  106. /@0 xdf pathbbox newpath ceiling /@3 xdf ceiling /@4 xdf 8 div floor 1 sub 8 mul /@1 xdf 8 div floor 1 sub 8 mul 8 @4{@1 8 @3{1 index exch @0}for pop}for grestore}bdf
  107. /raster{5 1 roll{gsave clip setrgbcolor exec grestore}{pop pop pop pop}ifelse newpath}bdf
  108. /sts md/SwToSym known def
  109. /bt{sa 3 1 roll 3 index and put}bdf
  110. /sa()def
  111. /sfp{0 1 bt 1 2 bt 2 4 bt 3 8 bt 4 16 bt 5 32 bt 6 64 bt 7 128 bt sa exch 8 exch put/ps xdf}bdf
  112. /kif{currentfont dup/FontMatrix get exch/FontInfo sgt{true}{currentfont/df sgt
  113. {dup/FontInfo sgt{3 1 roll/FontMatrix get mtx concatmatrix exch true}{pop pop pop false}ifelse}{pop pop false}ifelse}
  114. ifelse{3 -1 roll sgt{exch true}{pop false}ifelse}{false}ifelse}bdf
  115. /mc{0 3 1 roll transform neg exch pop}bdf
  116. /gl{1 currentgray sub setgray}bdf
  117. /ul{dup 0 ne sa 2 get 0 ne and{gsave 0 0/UnderlinePosition kif{mc}{ps -10 div}ifelse
  118. /UnderlineThickness kif{mc}{ps 15 div}ifelse
  119. abs setlinewidth neg rmoveto sa 4 get 0 ne{gsave currentlinewidth 2. div dup rmoveto currentpoint newpath moveto 2 copy rlineto stroke grestore}if
  120. sa 3 get sa 4 get or 0 ne{gsave gl 2 copy rlineto stroke grestore rlineto strokepath nlw pys div setlinewidth}{rlineto}ifelse
  121. stroke grestore}{pop}ifelse}bdf
  122. /rtShow{/@0 xdf /@1 xdf /@2 xdf dup @1 sub ul @0 stringwidth pop sub @0 length @2 sub @1 mul sub @2 0 eq{/@3 0 def true}{dup @2 div/@3 xdf( )stringwidth pop spaceMinFactor mul dup @3 gt{dup/@3 xdf @2 mul sub true}{pop pop false}ifelse}ifelse{@0 length @2 sub dv @1 add /@1 xdf}if @3 @1 sub 0 32 @1 0 @0 awidthshow}bdf
  123. /RTSym md /:esr known md/:bsr known and def
  124. /RTSymI RTSym md/:mi known and def
  125. /RTSymO RTSym md/:ff known md/:mo known and and def
  126. /RTSymS RTSym md/:ff known md/:ms known and and def
  127. /RTSymC RTSym md/:mc known and def
  128. /RTSymE RTSym md/:me known and def
  129. RTSym{/RTSymbol/Symbol :bsr 240/apple pd :esr}if
  130. /beBU{md/oldsettransfer known{end bu beDict begin}{mark 0 {md/fontsave known {{currentpoint} stopped fontsave restore not {:M} if 1 add} {exit} ifelse} loop bu /beFSR counttomark -1 roll def}ifelse}bdf
  131. /beBN{md/oldsettransfer known{end bn beDict begin}{bn beFSR {end /fontsave save def beDict begin} repeat cleartomark}ifelse}bdf
  132. /pictsave{/st currenttransfer def currentscreen/ssP xdf/ssA xdf/ssF xdf}bdf
  133. /pictres{/st load md/oldsettransfer known {oldsettransfer} {settransfer} ifelse ssF ssA/ssP load setscreen}bdf
  134. /oSg/setgray load def/oRgB/setrgbcolor load def/oHsB/sethsbcolor load def
  135. systemdict/setpacking known{setpacking}if
  136. end
  137. %EndProlog
  138.